1000 DF$(1)="'ICH WEISS NICHT, WAS SOLL ES BEDEUTEN'"
1100 DF$(2)="ALLE HEINOLIEDER":DF$(3)="DEN ENZIAN-RAP"
1200 DF$(4)="DIE NATIONALHYMNE BAYERNS":DF$(5)="DIE INTERNATIONALE"
1300 DF$(6)="'AM BRUNNEN VOR DEM TORE'":DF$(7)="'SUR LE PONT D'AVIGNON'"
1400 DF$(8)="'MISTDOBALINA MISTABOBDOBALINA'"
1500 AW$(2)="DARAN, DIE UHRZEIT ABZULESEN":AW$(1)="AN SEINEM COMEBACK"
1600 AW$(3)="AN DER SPALTUNG DES BIERATOMS":AW$(5)=""
1700 AW$(4)="DARAN, SICH LAECHERLICH ZU MACHEN"
1800 PRINT"[147][144]";CHR$(142);CHR$(8):POKE53280,11:POKE 53281,11
1900 REM*******************************
2000 DATA MAGNUS,JACQUES,RUDI,ULF,MARTIN,STEPHAN,INGMAR,HENRIK,HENDRICK
2100 :
2200 DATA RUDI,FLIEGT,SINGT,MUTIERT,TERMINIERT,VERSTECKT SICH,VERIRRT SICH
2300 :
2400 DATA MACHT,SCHLUMPFT,SPIELT,ARBEITET,BARFUSS
2500 :
2600 DATA BEI STRAHLENDEM SONNENSCHEIN,UNTER MISSACHTUNG ALLER VORSCHRIFTEN
2700 :
2800 DATA MIT BUSCHHUT UND VARIOMAT-SONNENBRILLE,LAUT ZISCHEND
2900 :
3000 DATA TROTZ SCHRIFTLICHER PROTESTE
3100 :
3200 DATA NACH SORGFAELTIGER PLANUNG,AM 30.MAI,UNTER STARKER RAUCHENTWICKLUNG
3300 :
3400 DATA ZUSAMMEN MIT ,UNTER,AUF,IN,HINTER,VOR,UNTER
3500 :
3600 DATA AUF,IN,HINTER,VOR,DER RIESENKOBRA,DEN TRUEMMERN DER KONZERTHALLE
3700 :
3800 DATA DER MUELLTONNE,DER AUSVERKAUFTEN KONZERTHALLE,EINEM PANZER
3900 DATA DER BRUECKE,DIESEM GEBAEUDE,DER DVU-ZENTRALE
4000 DATA DER BAHNHOFSTOILETTE,DER LAVAFONTAENE
4100 :
4200 :
4300 REM*EINLESEN**********************
4400 :
4500 :
4600 FOR A=1 TO 50:READ A$
4700 IF A<11 THEN NA$(A)=A$
4800 IF A>10 AND A<21 THEN VE$(A-10)=A$
4900 IF A>20 AND A<31 THEN AD$(A-20)=A$
5000 IF A>30 AND A<41 THEN PR$(A-30)=A$
5100 IF A>40 AND A<51 THEN NO$(A-40)=A$
5200 NEXT
5300 :
5400 :
5500 REM*ZUFALLSZAHLEN*****************
5600 :
5700 :
5800 FOR A=1 TO 5:B(A)=INT(10*RND(1))+1:NEXT
5900 :
6000 REM*KONTROLLE AUF GRAMMATIK*******
6100 :
6200 :
6300 IF B(5)=6 THEN GOSUB 13800
6400 IF B(2)=1 THEN GOSUB 12300
6500 IF B(2)=6 THEN GOSUB 12000
6600 IF B(2)=8 AND  B(5)=9 THEN B(4)=3:NO$(B(5))="DER KLOSCHUESSEL":GH=1
6700 IF B(3)=10 THEN V=3: GOSUB 12700
6800 IF B(5)=1 THEN GOSUB 14600
6900 :
7000 :
7100 REM*AUSDRUCK**********************
7200 :
7300 :
7400 IF KV<>1 THEN AS$=" "
7500 PRINTNA$(B(1)):PRINTVE$(B(2)):PRINTAD$(B(3));:PRINTAS$:KV=2
7600 PRINTPR$(B(4));"";
7700 PRINTNO$(B(5))
7800 :
7900 :
8000 REM*KONTROLLE AUF ANHAENGSEL******
8100 :
8200 :
8300 IF B(2)=3 THEN V=2:GOSUB 12700
8400 IF B(2)=4 THEN V=4:GOSUB 12700
8500 IF B(2)=2 THEN GOSUB 14500
8600 IFDW=1 THEN PRINT"HERAUS":DW=2
8700 IF B(2)=7 THEN V=1:GOSUB 12700
8800 IF B(2)=8 AND GH<>1 THEN PRINT"IM BODEN":GH=2
8900 IF B(2)=9 THEN PRINT"MIT ";:GOSUB 10100
9000 IF B(2)=10 THEN GOSUB 14400
9100 IFDW=1 THEN PRINT"HERAUS":DW=2
9200 :
9300 :
9400 REM*RUECKSPRUNGABFRAGE************
9500 :
9600 :
9700 PRINT
9800 GET C$:IF C$="" THEN 9800
9900 PRINT:GOTO 5800
10000 REM*ANHAENGSEL FUER 'SPIELT'*****
10100 A=INT(9*RND(1))+1
10200 IF A=1 THEN PRINT"AL BUNDY";
10300 IF A=2 THEN PRINT"DARABOR";
10400 IF A=3 THEN PRINT"EINEM PAPPKARTON";
10500 IF A=4 THEN PRINT"SICH SELBST";
10600 IF A=5 THEN PRINT"ERIKA BERGER";
10700 IF A=6 THEN PRINT"HELLA VON SINNEN";
10800 IF A=7 THEN PRINT"THEO WAIGEL";
10900 IF A=8 THEN PRINT"EINER FLASCHE";
11000 IF A=9 THEN PRINT"BATMAN";
11100 D=INT(6*RND(1))+1
11200 IF D=1 THEN PRINT" DSA"
11300 IF D=2 THEN PRINT" SCHACH"
11400 IF D=3 THEN PRINT" WARLORDS"
11500 IF D=4 THEN PRINT" STRIP-POKER"
11600 IF D=5 THEN PRINT" MONOPOLY"
11700 IF D=6 THEN PRINT" BATTLETECH"
11800 RETURN
11900 REM******************************
12000 B(4)=3:IF B(5)=6 THEN B(4)=2
12100 RETURN
12200 REM******************************
12300 IF B(5)=6 THEN PR$(B(4))="VON":GOTO 12500
12400 PR$(B(4))="AUS":DW=1:RETURN
12500 RETURN
12600 REM******************************
12700 X=INT(10*RND(1))+1:IFX=B(1)THEN12700
12800 IF V=1 THEN GOSUB 14000
12900 IF V=1 THEN PRINT"DEN ";:OP=3
13000 IF V=4 THEN PRINT"DEN MANN, DEN SIE ";:RF=1
13100 IF V=2 THEN PRINT"ZUM ";
13200 IF V=3 THEN AS$=NA$(X):KV=1
13300 IF V<>3 THEN PRINTNA$(X);
13400 OP=3
13500 IF RF=1 THEN PRINT" NANNTEN":RF=2
13600 V=7:RETURN
13700 REM******************************
13800 B(4)=2:RETURN
13900 REM******************************
14000 CC=INT(2*RND(1))+1:IF CC=1 THEN OP=1:GOTO 14200
14100 OP=2
14200 RETURN
14300 REM******************************
14400 HJ=INT(5*RND(1))+1:PRINTAW$(HJ):RETURN
14450 REM******************************
14500 D=INT(8*RND(1))+1:PRINTDF$(D):RETURN
14550 REM******************************
14600 IF B(4)=3 OR B(4)=8 THEN PR$(B(4))="IM MAGEN DER"
14700 RETURN
14800 REM******************************